home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 55 / 055.d81 / cranberry park (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  286 lines
  1. 48 poke 52,56:poke 56,56:clr:gosub 7000:poke53280,.:poke53281,.
  2. 49 print "[147]":poke214,10:print
  3. 50 print "   do you need instructions?  y/n [146]"
  4. 51 get a$
  5. 53 if a$="" then 51
  6. 55 if (a$="y" or a$="[217]")then gosub 112
  7. 56 if (a$="n" or a$="[206]") thengosub8000:goto 70
  8. 57 goto 49
  9. 70 print "[147]":poke214,10:print
  10. 71 print "                 loading..."
  11. 72 load "park",8:goto 11726
  12. 75 end
  13. 112 print "[147]":poke214,10:print
  14. 113 print "   print to screen or printer?  s[146] or p[146]?"
  15. 114 get a$
  16. 115 if a$="" then 114
  17. 117 if (a$="s" or a$="[211]") then 120
  18. 118 if (a$="p" or a$="[208]") then gosub6000:goto135
  19. 119 goto 112
  20. 120 print "[147]"
  21. 125 tb$=" ":gosub 200
  22. 130 goto 153
  23. 135 tb$="                    ":open4,4:cmd4
  24. 140 gosub 200
  25. 145 print#4:close4
  26. 153 print "[147]":poke214,9:print
  27. 154 print "        do you want to see the"
  28. 155 print "      instructions again?  y/n [146]"
  29. 156 get a$
  30. 157 if a$="" then 156
  31. 159 if (a$="y" or a$="[217]")then 112
  32. 160 if (a$="n" or a$="[206]") then gosub8000:return
  33. 161 print "[147]"
  34. 162 goto 153
  35. 200 printtb$"        planning instructions"
  36. 205 print
  37. 210 printtb$"    you have been hired by the        "
  38. 215 printtb$"cranberry cove recreation committee   "
  39. 220 printtb$"to plan a new park for the town.  your"
  40. 225 printtb$"job is to draw up the plan in a       "
  41. 230 printtb$"certain number of days (your deadline)"
  42. 235 printtb$"to meet the specifications of the     "
  43. 240 printtb$"committee.  your job rating depends   "
  44. 245 printtb$"upon how many of the most desirable   "
  45. 250 printtb$"park parts you can include in your    "
  46. 255 printtb$"plan before the deadline."
  47. 260 print:printtb$"   you will draw up your plans on a   "
  48. 265 printtb$"rectangular planning diagram with 18  "
  49. 270 printtb$"plots where the different parts of the"
  50. 275 printtb$"park may go.  the plots are arranged  "
  51. 280 printtb$"in 3 rows and 6 colunms, like this:   "
  52. 285 print:if tb$=" " then gosub 3000
  53. 294 printtb$"     [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]  "
  54. 295 printtb$"     [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
  55. 300 printtb$"   1 [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
  56. 305 printtb$"     [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]  "
  57. 310 printtb$"r    [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
  58. 390 printtb$"o  2 [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
  59. 395 printtb$"w    [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]  "
  60. 400 printtb$"     [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
  61. 405 printtb$"   3 [221]    [221]    [221]    [221]    [221]    [221]    [221]  "
  62. 410 printtb$"     [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]  "
  63. 415 print
  64. 420 printtb$"        1    2    3    4    5    6    "
  65. 425 print
  66. 430 printtb$"                  column              "
  67. 435 print:print:if tb$=" " then gosub 3000
  68. 436 print
  69. 440 printtb$"          recreational values         "
  70. 445 printtb$"          and your job rating         "
  71. 450 print
  72. 455 printtb$"   you have a list of park parts to   "
  73. 460 printtb$"work with, and the committee has      "
  74. 465 printtb$"assigned each of these parts a certain"
  75. 475 printtb$"recreational value, a number from 1 to"
  76. 480 printtb$"9.  this number represents the        "
  77. 485 printtb$"committee's judgment as to how        "
  78. 490 printtb$"valuable that part will be to the     "
  79. 495 printtb$"success of the park.  if the park is  "
  80. 500 printtb$"considered successful, then of course "
  81. 505 printtb$"your job rating will be high.  each   "
  82. 510 printtb$"time you include a part in your plan, "
  83. 515 printtb$"your job rating will go up by the same"
  84. 520 printtb$"amount as the part's value rating.  if"
  85. 525 printtb$"the sand box has a value of 5, and you"
  86. 530 printtb$"include it in your plan, your job     "
  87. 535 printtb$"rating will go up by five points."
  88. 540 if tb$=" " then gosub 3000
  89. 545 print:printtb$"   if you don't finish by the deadline"
  90. 550 printtb$"date, your job rating will decrease   "
  91. 555 printtb$"with each day you fail to complete    "
  92. 560 printtb$"your plan.  "
  93. 565 print:printtb$"       restrictions on placement"
  94. 570 print:printtb$"   your task is made more difficult   "
  95. 575 printtb$"by the fact that the committee has put"
  96. 580 printtb$"restrictions on the placement of the  "
  97. 585 printtb$"various parts you could include in the"
  98. 590 printtb$"park.  for example, some parts must be"
  99. 595 printtb$"or must not be adjacent to other      "
  100. 600 printtb$"parts.  (adjacent means directly      "
  101. 605 printtb$"above, below, or to the right or left "
  102. 610 printtb$"of other parts.)  some parts must be  "
  103. 615 printtb$"in certain rows or columns or on the  "
  104. 620 printtb$"perimeter (around the edges) of the   "
  105. 625 printtb$"park, and so forth."
  106. 626 print: if tb$=" " then gosub 3000
  107. 628 print:printtb$"   while you are developing your plan,"
  108. 630 printtb$"you will not be allowed to place a    "
  109. 635 printtb$"part on the diagram if the committee's"
  110. 640 printtb$"restrictions do not permit it.  the   "
  111. 645 printtb$"restrictions will be shown on your    "
  112. 650 printtb$"list along with the recreational value"
  113. 655 printtb$"of each part and a two-letter         "
  114. 660 printtb$"abbreviation for the name of the part."
  115. 665 print:printtb$"   you may at times need to keep track"
  116. 670 printtb$"of a great deal of information about  "
  117. 680 printtb$"the restrictions on placement of the  "
  118. 685 printtb$"various park parts.  because different"
  119. 690 printtb$"people like to organize their informa-"
  120. 695 printtb$"tion in different ways for different  "
  121. 700 printtb$"planning strategies, you will be given"
  122. 705 printtb$"four options on how you want the park "
  123. 710 printtb$"parts arranged on your reference list."
  124. 720 print:if tb$=" " then gosub 3000
  125. 725 print:printtb$"   these are your options:            "
  126. 730 print:printtb$"  -parts with the highest values first"
  127. 735 printtb$"  -parts with the fewest restrictions "
  128. 740 printtb$"     first (the 'easies')"
  129. 745 printtb$"  -parts with the most restrictions   "
  130. 750 printtb$"     first (the 'hards')"
  131. 755 printtb$"  -alphabetical order
  132. 760 [153]
  133. 765 [153]tb$"   try different arrangements to see  "
  134. 770 [153]tb$"what works best for you under what    "
  135. 775 [153]tb$"conditions."
  136. 780 [153]
  137. 785 [139] tb$[178]" " [167] [141] 3000
  138. 790 [153]:[153]tb$"           committee advice":[153]
  139. 795 [153]tb$"   the committee members are known to "
  140. 800 [153]tb$"change their minds occasionally,      "
  141. 805 [153]tb$"especially a certain mr. nathan       "
  142. 810 [153]tb$"terrupt.  thus the committee may      "
  143. 815 [153]tb$"inform you at any time that they have "
  144. 820 [153]tb$"changed the values they place on      "
  145. 825 [153]tb$"certain parts of the park, or that    "
  146. 830 [153]tb$"they do not like where you have       "
  147. 835 [153]tb$"planned to put a particular part.  you"
  148. 840 [153]tb$"may disagree, but you must accept     "
  149. 845 [153]tb$"their judgment.":[153]
  150. 850 [153]:[139] tb$[178]" " [167] [141] 3000
  151. 855 [153]:[153]tb$"            your contract":[153]
  152. 860 [153]tb$"   you begin by selecting the terms of"
  153. 865 [153]tb$"your planning assignment.  the amount "
  154. 870 [153]tb$"of restriction the committee has put  "
  155. 875 [153]tb$"on the placement of parts may be      "
  156. 880 [153]tb$"minimal, moderate, or severe.         "
  157. 885 [153]tb$"the number of days to your deadline   "
  158. 890 [153]tb$"may be 75, 150, 225, or 300.  your    "
  159. 895 [153]tb$"list may be organized in one of the   "
  160. 900 [153]tb$"four different ways.  you should      "
  161. 905 [153]tb$"decide which are the easiest choices  "
  162. 910 [153]tb$"to begin your career, but your        "
  163. 915 [153]tb$"reputation will improve as you select "
  164. 920 [153]tb$"the more difficult assignments.  "
  165. 925 [153]:[139] tb$[178]" " [167] [141] 3000
  166. 930 [153]:[153]tb$"          the nitty gritty"
  167. 935 [153]
  168. 940 [153]:[153]tb